Designer's Club 1996 December/Designer's Club 1996 December.iso/mac/Idea Source/STAR.DIR/00134.ls

Text File | 1996-11-05 | 1.5 KB | 65 lines

on startMovie
  global slider, toolH, toolV, gallery
  set slider to 0
  set the locH of sprite 40 to toolH
  set the locV of sprite 40 to toolV
  set gallery to "slideshow"
end

on stopMovie
  global toolH, toolV
  set toolH to the locH of sprite 40
  set toolV to the locV of sprite 40
end

on pressit button, swap
  puppetSound("clickdn")
  repeat while the mouseDown
    set the visible of sprite button to 0
    updateStage()
  end repeat
  set the visible of sprite button to 1
  puppetSound("clickup")
end

on tools
  global slider
  repeat with n = 41 to 46
    puppetSprite(n, 1)
  end repeat
  repeat with n = 41 to 46
    set the locV of sprite n to the locV of sprite 40 + 42
  end repeat
  set the locH of sprite 41 to the locH of sprite 40
  set the locH of sprite 42 to the locH of sprite 40 - 116
  set the locH of sprite 43 to the locH of sprite 40 - 69
  set the locH of sprite 44 to the locH of sprite 40 - 22
  set the locH of sprite 45 to the locH of sprite 40 + 34
  set the locH of sprite 46 to the locH of sprite 40 + 104
  updateStage()
end

on keyDown
  if the key = 1 then
    set the soundLevel to 1
  end if
  if the key = 2 then
    set the soundLevel to 2
  end if
  if the key = 3 then
    set the soundLevel to 3
  end if
  if the key = 4 then
    set the soundLevel to 4
  end if
  if the key = 5 then
    set the soundLevel to 5
  end if
  if the key = 6 then
    set the soundLevel to 6
  end if
  if the key = 7 then
    set the soundLevel to 7
  end if
end